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-IDENT ‘V04-002" 


. 
FARRAR ERA AERA A AAA AAA AAA AREA AERA AAA EAAEAAREAAAEAKAKEAeA eee ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ny IN omy WITH THE TERMS OF SUCH bicNee AND WITH THE 
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OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
& 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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p++ 
> FACILITY: 
EXECUTIVE, LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 
ABSTRACT: 
LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 
: AUTHOR: 
N. KRONENBERG, JULY 2, 1979. 
; MODIFIED BY: 


v04-003 wac00001 Wayne Cardoza Teesenn 1904 
CRD reporting must not be turned off for VENUS. 


V04-002 CWwH4002 CW Hobbs 08-Sep-1984 
Correct typo in TCM0010, use ‘’-"" instead of ‘= 


v04-001 TCM0010 Trudy C. Matthews 07-Sep-1984 
For the venus processor: move turning on cache from routine 
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EXESINIPROCREG to ; new routine: INISCACHE. Correct the 
order in which registers are saved on the stack in EXESREGSAVE. 


v03-022 TCMO009 Trudy C. Matthews 30-Jul-1984 
When turning off CRD interrupts in EXESINIPROCREG for VENUS, 
read the processor register and write it back to preserve 
the state of other bits in the register. 


v03-021 TCMO008 Trudy C. Matthews 23-Jul-1984 
Remove venus code that queries the console for how to set up 
cache and FBOX state. nstead always turn the cache and 
Gere On, hand let the normal error handling code turn it off 
s 5 


vO3-020 DWT0214 David W. Thiel 02-May-1984 
Revise MicroVAX I TODR register simulation. 


v03-019 KDM0096 Kathleen D. Morse 27-Mar-1984 
Add missing indirection in MicroVAX I memory CSR 
CRD enabling. 


v03-018 KPLO101 Peter Lieberwirth 4-Ma 
Add extra vectors now defined in SYSLOAVEC. 
are insurance for v4.x 


v03-017 KPLO100 Peter Lieberwirth 12-Feb-1984 
Change RPBSB_BOOTNDT to RPBSW_BOOTNDT, since BI devices 
will have 16-bit device types. 


v03-016 KDM0092 Kathleen D. Morse 23-Jan-1984 
Correct the number of cpu-specific IPRs logged for the 
11/730 and MicroVAX I cpus. 


v03-015 CWH8001 CW Hobbs 5-Dec-1983 
Add entry points for EXESREADP_TODR and 3 brag ee 
or 
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to access physical TODR register for Nautilus CPU. 
other processors. these amount to duplicate labels on 
EXESREAD_TODR and EXESWRITE_TODR. 


v03-014 KTA3088 Kerbey T. Altmann 17-Oct-1983 
Fix bug in 730 conditional far EXESINIBOOTADP. 
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v03-013 KOM0081 Kathleen D. Morse 13-Sep-1983 
Create Micro-VAX I version. 
v03-012 KDM005S Kathleen D. Morse 12-Jul-1983 
Move IPR PME into the cpu-depenosnt register save and 


restore routines. 


KDM0049 Kathleen D. Morse 07-Jul-1983 
Add the following processor registers ‘o the cpu-specific 
ume IPRs routine: ICR, * é ACCS. Add usage o 

s ODR ana £xESWRITE_TODR. 


v03-011 
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ONOUS WOO 


register: EXESREAD_T 

v03-010 KDM0048 Kathleen D. Morse 07-Jul-1965 
Add loadable routines for coterens ing the time-of-day 
clock: EXESREAD_TODR, EXESWRITE_TODR. 
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v03-009 1TCM0007 Trudy C. Matthews 02-Jun-1983 
Fix routine SYSLSCLRSBIA so that it calculates the address 
of SBI adapter register space mage 


v03-008 TCM0006 Trudy C. Hettheye 
Store enable/disable. state of 11/790 sack "ang Peax 4 
EXESGB_CPUDATA cell during system initializer on 


v03-007 TCM0005 ctnta! Matthews n-1983 

y routine syst RSBIA “Add $8 SBIA bentbter” {nitialization 

to EXESI INIPR OCREG nh! We chine check handler to 
/780 aoshi ne check handler to 

te PRS” SBirs’ oo ee itself to clear error bits. 
dd label§ for ce ‘extra’ ro nes, that can be patched 
if extra vectors from SYS to SYSLOA are needed in between 
major releases. Heke EXESDUNPCPUREG log the SBI registers 
from the SBI the 11/79 system disk is on. 


V03-006 TCM0004 dy § Matthews 3-Jan-1983 
Add more 11/790-speq tic code. 


v03-005 roses Trudy C. Matthews 17-Dec-1982 
d conditional gsseably switch to the invocations 
f 11/7 peta definition macros. 


v03-004 TCM0002 rudy C. Matth 15-Dec-1982 
Added $1/790-speciitiz code to EXESINIPROCREG. 

v03-003 TCM0001 udy C. Matthews 13-Dec-1982 
Added 11/790-speci iti code to power down/power up 
routines. 

v03-002 KTA3018 Kerbey T. Altmann 30-0c t-1982 


Remove CI and UBA routines to another module. 
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S FOR VAX 11/780 16-SEP-1984 00:42: AX/VMS Macro V04-00 Page § 
NITIALIZE THE BOOT DEV 1 mii oets 99:08:38 YOYSLOA. SRETERRSUB. MAR: 5 - dh 
? .SBTTL EXESINIBOOTADP = INITIALIZE THE BOOT DEVICE ADAPTER 
+ EXESINIBOOTADP = GET THE SYSTEM BOOT DEVICE ADAPTER AND INIT IT. 
; THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE BOOTDRIVER IS CALLED. 
: INPUTS 
: R6 = RPB ADDRESS 
: OUTPUTS: 
: RO-R2 DESTROYED 
: OTHER REGISTERS PRESERVED 
.PSECT SYSLOA,LONG 
TENABLE LSB 
EXESINIBOOTADP: : ; SUBROUTINE ENTRY 
CMPB = RPBS$B_DEVTYP(R6),- 31S BOOT DEVICE THE CONSOLE 
#BTDSR_CONSOLE ‘BLOCK STORAGE DEVICE? 
BEQL = 4 [YES, RETURN 
MOVL = RPBSL_ADPVIR(R6) ,RO [GET ADDR OF ADAPTER REG SPACE 
BICW3 #3,RPB$W_BOOTNDT(R6),R2 ;GET GENERIC ADAPTER TYPE 
CMPW = s«aR2 #NDTS$—C1 :CI ADAPTER? 
BEQL 862 SYES, RETURN 
CMPW 8=s-sR2, ND T$_MB ‘MASS BUS ADAPTER? 
BNEQ NI_UBADP s;BRANCH IF N 
MOVL §§ #MBKSM_CR_ABORT,- ‘ABORT ACTIVE TRANSFER 
MBASL_CR(RO) ; 
MFPR = #PR780$_TODR,R1 :GET CURRENT TIME (10 MS UNITS) 
MOVAB 100(R1),R1 yALLOW ONE SECOND 
10$: TSTL MBASL_SR(RO) ‘WAIT UNTIL TRANSFER 
BGEQ =«-:«15$ : IS COMPLETE 
MFPR = #PR780$_TODR,R2 3GET CURRENT TIME 
CMPL = R1,, R2 :CHECK FOR INTERVAL EXPIRED 
BGTRU ‘NOT YET, WAIT SOME MORE 
15$: OVL #$#MBASM_CR INIT. ‘NOW INIT MBA 
MBASL_CR(RO) : 
20$: RSB DONE 
INI_UBADP: :INIT UBA 
MOVL 


#UBASM_CR jNIT.~ 


UBASL_CR(R ; INIT UBA 
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ERRSUB780 - ERROR SUBROUTINES FOR VAX 11/780 “SEP=1984 00:42: AX/VMS Macro v04-00 Pa 
FOe2003 EXESINIBODS ADE = INITIALIZE THE BOOT DEV 1§78 sets 90:46:38 SYSLOA.SRCJERRSUB.MAR; 5 = (2) 
00010000 of d3 ? 7 25$: BITL #UBASM_CSR yeic.= 
8 YBASL_CSRCR ) ;WAIT FOR UBA INIT 
F 13 ‘ 23 BEQL $ ; TO COMPLETE 
18 320 
4 é ; CHECK THE VMB VERSION NUMBER. IF IT EXISTS AND IF IT IS 7 OR GREATER, THEN 
Oe 9 SEE IF ANY UNIBUS MAP REGISTERS TO DISABLE. 
4 64 * 
52 34 A D 4 : MOYL RPBSL_IOVEC(R6) ,.R2 ;PICK UP THE IOVECTOR FROM RPB 
51 10 A ) 49 § MCOMW BQ0$W VERSION(RE) R1 3GET VMB VERSION NUMBER 1'S COMPLEMENTED 
12 a2. 5 8 4D CAPW R1,BQ0$W_VERSION+2(R2) :CHECK AGAINST CHECK WORD IN VMB 
1B 12 0 68 BNEQ :1F NOT, ASSUME NO VERSION NUMBER 
07 «10 Ag B1 5 €69 CMPW BQOSW_VERSION(R2) ,#7 ;VERSION 7 OR GREATER OF VMB? 
1 1F 005 70 BLSSU :NO, DON'T BOTH WITH UMR'S 
52. 24 A2 og 059 71 MOVL BQOSL_UMR_DIS(R2),R2 [GRAB THE NUMBER OF UMR'S TO DISABLE 
OF 1 9030 ‘5 BEQL 40$ ;NONE, LEAVE 
04 a0 52 16 78 O03 3 ASHL #22,R2,UBASL_CR(RO) 3SET THE UMR DISABLE BITS 
064 78 ; 
Spee 79 ; THIS CODE IS EXECUTED FOR ALL PROCESSORS. ITS DISABLES ANY UNIBUS MAP 
0064 380 ; REGISTERS ASSOCIATED WITH UNIBUS MEMORY TO PREVENT CONTENTION BETWEEN 
0064 81 ; SBI AND UNIBUS ADDRESSES. 
get 
51 0800 CO DE 0064 386 MOVAL UBASL_MAP(RO),R1 sADDRESS OF FIRST REGISTER 
81 D4 0069 85 30$: CLRL (R1)+ 3 LE 
FB 52 =«6«FS) «(0068 336 SOBGTR R2,30$ ;LOOP UNTIL ALL DONE 
05 006E 8 40S: RSB DONE WITH UBA INIT 
OO6F 389 -DISABLE LSB 
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ERRSUB780 = ERROR SUBROUTINES FOR VAX 11/788 16-SEP-1984 242: AX/VMS Macro Vv04-00 Page 
viva tit EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS D 1 mits 7 90:26:38 ESYSLOA. SRE TERRSUB_MAR: 5 . (5) 
6F 4! ~SBTTL EXESSHUTDWNADP ~ SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
: 3 é -SBTTL EXESSTARTUPADP = STARTUP ANY ADAPTERS 
F 94 : EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
F 95 ; THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE DUMP IS TAKEN TO 
or 89 : ENSURE THAT ALL ADAPTERS THAT NEED TO BE QUIESENT ARE. Cc 
oer 38 : INPUTS: C 
a ie 
O6F 4 : : OUTPUTS: cls 
Det 404 : OTHER REGISTERS PRESERVED Ext 
O06 406 : .ENABLE LSB ext 
Boer $38 EXESSTARTUPADP: : EXE 
17 BB QO6F 40 PUSHR #*M<RO,R1,R2,R4> ; Save a register EXE 
51 B6'AF DE 0071 410 MOVAL B*ADP_fBL_UP.R1 : Address of startup table EXE 
06 «11 0) a1) BRB 5$ ; Join common code exe 
0077 418 EXESSHUTDWNADP: : EXE 
17 BB 9077 414 PUSHR #*M<RO,R1,R2,R4> ; Save a register EXE 
1 "AF =6DE «60079 = 415 MOVAL B*ADP_TBL_DWN,R1 ; Address of shutdown table EXE 
FFFFFFFC'SF ODE 943 418 5$: MOVAL a@#<IOC$GL-ADPLIST- - EXE 
08 41 ADP$L_CINK>,R2 ; Get pointer to head of adapter List EXE 
52 O4A 09 it 418 10$: MOVL ADPSL_LINK(R2) ,R2 ; Flink onwar EXE 
| ee 088 419 BEQL 208 ; Branch if at end of List EXE 
54 62 pe 008A ret MOVL ADP$L_CSR(R2) ,R4 ; Get address of CSR EXE 
50 OE Ae 3C 008D 421 MOVZWL ADPSWTADPTYPE(R2),RO =: Get adapter type code EXE 
50 6140 DE 0091 $55 MOVAL (R1)CROJ,RO 3; Get table entry of adap shutdown EXE 
00 8040 16 0095 4 JSB a(RO)CROS : Call adapter shutdown EXE 
—9 «(11 0096 $52 BRB 10$ ; Next adapter Bue 
17 BA 098 426 eps: POPR #*M<RO,R1,R2,R4> EXE 
05 009D 427 30$: RSB EXE 
O09 439 EXE 
943 430 ; Table of addresses of adapter shutdown routines ordered EXE 
O9E 431 ; by adapter type in ADP$W_ADPTYPE. IN] 
ete 5 
O03 434 ADP_TBL_DWN: ; Address table start 
FEFEEEEB OOAD 630 tONG  308-;  TTUBA 
HEEETHEE 0a $4] LONGO : SOR, 
eae AE 108 “LONG CISSHUTDOUN-. : 4-Cl 
FFFFFFEB 3: ret: LONG $-. ; Rsved for future expansion 
446 ; 
6 103 3; Table of addresses of adapter startup routines ordered 
é 49 ; by adapter type in ADP$W_ADPTYPE. 
B6 450° 
6 451 ADP_TBL_UP: ; Address table start 


ae 780 R SUBROUTINES FOR VAX 11 786, '° 242: AX/VMS Ma v04-00 
voes008 PA TART Cie 


- ERRO OUTINE 1 Pa 
EXESSTARTUPADP = STARTUP ANY HS a 1$-3¢ sets 90:45:38 SYSLOA.SRC RCIE ERRSUB.MAR;5 - ) 
FFFFFFGA‘ 6 4 § -LONG MBASINITIAL-. 3; O-MBA 
FFFFFFG6° BA 4&4 * LONG ASINITIAL-. 3; 1-UBA 
Pere re ee B 454 LONG =. 5 mT 
FFFFFF 5" C 455 “CONG MASINITIAL-. : 35-MA780 
FFFFFFD C $28 ~ LONG 0$-. i 4-Cl 
FFFFFFD3 4 ri “LONG 0$-. ; Rsved for future expansion 
Soc 459 DISABLE LSB 
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-SBTTL EXESDUMPCPUREG = DUMP CPU-SPECIFIC IPR'S 
DUMP CPU-SPECIFIC IPR'S INTO ERROR MESSAGE BUFFER. 


TWENTY-FOUR LONGWORDS ARE RESERVED iN Hy ites FOR CPU-SPECIFIC 
IPR'S. THE FORMATS FOR VARIOUS CPU'S 


ou 
EG 
CE 4 
aor 
CE 463: 
« Be : ; 
CE 465: 
cE 83 
cE ies > 11/780: 11/750: 11/730: 11/790: UVAX I: 
CE 136 : ICR ICR ICR ICR UNUSED (0) 
CE 471 : TODR TODR TODR TODR APPROX TODR 
CE 406 > ACCS ACCS ACCS ACCS NUSED (0) 
CE 473 : SBIFS TBDR 21 UNUSED(O)  SBISTS (1st SBI) 1 UNUSED(O) 
OCE 474 : SBISC CADR SILOCMP " 
OCE 475 : SBIMT MCESR MAINT Z 
OCE 426 : SBIER CAER SBIERR " 
cE 477 : SBIS CMIERR TMOADDRS "’ 
cE 478 : 16 SBI SILO 16 UNUSED(O) 16 SBI SILO" 
QOCE 480 : INPUTS 
OOCE iRe ; RO = ADDR IN EMB OF START OF CPU-SPECIFIC REGISTERS= 
OOcE 483 OFFSET EMB$L_CR_CPUREG 
OOCE 485 : OUTPUTS: 
OOCE 487 : RO,R1 DESTROYED 
OOCE 488; ALL OTHER REGISTERS PRESERVED 
gee ae 
OOcE 491 .ENABL LSB 
OOCE re EXESDUMPCPUREG: : ; SUBROUTINE ENTRY 
ge ae 
80 1A DB OOCE 497 MFPR = #PR780$_ICR,(RO)+ LOG INTERVAL COUNT REG, 
80 1B DB 0001 498 MFPR  #PR780$~TODR, (RO) + : TIME-OF-DAY REG 
80 28 DB 00D4 499 MFPR #PR7BO$"ACCS, (RO) + > ACCELERATOR CONTROL REG, 
80 30 DB 0007 200 MFPR  #PR780$~SBIFS,(RO)+ + SBI FAULT REG 
80 ‘ DB OODA 501 MFPR #PR780$~SBISC,(RO)+ : $B1 COMPARATOR REG 
80 DB O0DD 0¢ MFPR  #PR780$~SBIMT.(RO)+ : SBI MAINT REG, 
80 34 0B OE MFPR  #PR780$~SBIER, (RO)+ : SBI ERROR hts 
80 31 dB OOE i MFPR #PR780$"SBIS, (RO)+ : SBI TIMEOUT REG. 
1 10 00 ES 5 MOVE #6 R1 :GET # SILO ENTRIES TO DUMP 
0 31 D E 6 10$: FPR PR?80$_SBIS,(RO)+ [DUMP SILO TO EMB 
ee ee OE SOBGTR Rie 10$ ~ : 
EF 509 
EF 10 
EF 4 
BEF 3g 
ay 
EF 
H 90$: 
05 OO0EF 57 RSB 
FO 574 .DISABLE LSB 


ERRSUB780 
v04=002 


= ERROR SUBROUTINES FOR VAX 11/7 
EXESDUMPCPUREG = DUMP CPU-SPECI 


OOFO 575 


705 | 


FIC 


IPR'S 18 


SEP=1 
“SEP=1 
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- R VALUE 
ALL OTHER REGISTERS PRESERVED 


F 10 

ERRSUB780 - ERROR SUBROUTINES FOR VAX 11/780 16-SEP-1984 00:42: AX/VMS Macro v04-00 P 11 
Oe -005 EXESREAD TODR CP) > READ TIMECOFSDAY CLO 1aagePo1984 5:09:35 FenVeS eee se Nt lanes «| Page Hh, 

ss .SBTTL EXESREAD_TODR (P) = READ TIME-OF-DAY CLOCK 

t READS THE TIME-OF-DAY CLOCK, SINCE IT MAY BE ACCESSED IN 

> DIFFERENT WAYS: AS AN INTERNAL PROCESSOR REGISTER, AS PART 

: OF THE CONSOLE, OR BY READING AN ADDRESS IN 1/0 SPACE. IT 

; MAY ALSO BE INDIFFERENT FORMATS AND HAVE TO BE CONVERTED. 

: INPUTS: 

; NONE. 

; OUTPUTS: 

; RO = TODR VA 


EXESREADP_TODR: : SUBROUTINE ENTRY 


PANIAN NAN ONO EWN 0 OD NOU EWN OODNOULS WH O0OON —- 


a Di Die Di Di Di Di Di Bi i Di De ee i Di De Be ee ee Bs Rs es Re es Be i es es ee i De De ee ee i 


; NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
; REGISTER IN THE CONSOLE PROCESSOR FOR TWO aeAncce® FIRST, THE PHYSICAL 
; TODR HAS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION. SEC a 
; REFERENCE TO THE PHYSICAL TODR IS A VERY SLOW, NON-INTERRUPTIBLE ACTION. 
; NON-PHYSICAL NAUTILUS TODR REFERENCES WILL USE THE EXESREAD_TODR ENTRY 
; WHICH WILL FABRICATE THE TIME FROM THE QUADWORD SYSTEM TIME. 
; NOT NAUTILUS - FALL THROUGH TO READ_TODR 
EXESREAD_TODR: : ; SUBROUTINE ENTRY 
50 18 08 MFPR #PR780$_TODR,RO ; TODR IS A PROCESSOR REGISTER. 
05 RSB 


SOOOSCSCOOOSOSOSOOOSSOSOSOOSOOSOSOOSOOOSOSOOOOSOOSOOOOOOOOOOo Ss 
SOOCCOCSCOSOSSOSOOSSOSOSCSOSCSOOSOSOSOOOOSOOSOOSOOOSOSOOOSOOSOOOSSOSO PY 
PAAEOAMNIN — — — “DODO GCOOCOCOCOOOOOO OOO OOMccacacncDcDcoco II 


PDEA AAAAAA AAA AAA AAD MI NIIUIVIVIVIVIUTUIUTI DO 


- | 
ERRSUB780 UBROUTINES FOR VAX 11/ 788 “SEP=-1984 00:42: AX/VMS v04- ERI 
v04-002 TODR UP) = URIYES TIMECOF“DAY TReSEPa1ORG $o:c:55 FANCYRS Bacco Meee OOar:s ||P aMe He, 


me 
=< 
mn 
Pw 
£7» 
DRDO 
— 2D 
“+ 
mo 


Fé $ .SBTTL EXESWRITE_TODR (P) = WRITES TIME-OF-DAY CLOCK 
F4 : WRITES THE pL tte -OF cdAy CLOCK. SINCE IT MAY BE ACCESSED IN 
F4 : DIFFERENT WAYS: ohh N INTERNAL PROCESSOR REGISTER, AS PART 
F4 : OF THE CON SOL - READING AN ADDRESS IN 1/0 SPACE. IT 
Fé g ; MAY ALSO BE IN DIFFERENT FORMATS AND HAVE TO BE CONVERTED. 
F4 78 : INPUTS: 
Fé 03 ; RO = CONTAINS VALUE TO BE WRITTEN INTO TODR 
Fs 7 : OUTPUTS: 
F4 % : NEW TIME VALUE WRITTEN INTO TODR. 
Ord : 0 ; ALL REGISTERS PRESERVED. 
OF4 682 ° 
OF 6 EXESWRITEP_TODR:: ; SUBROUTINE ENTRY 
OF4 685 ; NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
OOF4 686 : REGISTER IN THE CONSOLE PROCESSOR FOR TWO REASONS. FIRST, THE PHYSICAL 
00F4 68 : TODR HAS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION. SECOND, A 
OOF4 688 > REFERENCE TO THE PHYSICAL TODR IS A VERY SLOW, NON-INTERRUPTIBLE ACTION. 
OOF 689 + NON-PHYSICAL NAUTILUS TODR REFERENCES WILL Lise THE EXESWRITE_TODR ENTRY 
Ore 690 + WHICH WILL FABRICATE A NEW QUADWORD SYSTEM TIME. 
Gor O36 ; NOT NAUTILUS - FALL THROUGH TO WRITE_TODR 
OF4 694 EXESWRITE_TODR:: ; SUBROUTINE ENTRY 
at 8 
18 50 ODA OF 638 MTPR RO, #PR780$_TODR ; TODR IS A PROCESSOR REGISTER. 
Sore 701 
OF? 705 
OF7 106 
OF? 71 
OF? 711 
OF? 715 
ay 
05 os 3) RSB 


csaaze 


7E 
7E 


01 


33 


60 


ext 


S 


SOOCCOCCOOOCoCOCooooooooooooS 


dB 


17 


RRO 


SREGSAV 


2 I | “QOOCOOCQOOOOCOCOCGOOOOOOOOOO 


DOQQ Vai 0 FF Fy ee re er re re rr 


MMPINVOOCOCOCOCOCCoCU > Sr 
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10 
CUTAVE CPUSSPECIFIC TPR'S  18egEP-19be Soic6s05 Paton. carseenstewar:s = Page 


MFPR #PR780$_PME ,-(SP) 
MFPR #PR780$_ SBIMT,-(SP) 


JMP (RO) 


OGD SIND DS OD II BS BS BS BB BB AANA NII AION PNY 
FWONA ODE WING FW OHO NAME WIR @§ O OD NAME AN "OOOO 


Si i i i ee 


-DSABL LSB 


~SBTTL EXESREGSAVE = SAVE CPU-SPECIFIC IPR'S 


:" EXESREGSAVE = CALLED BY POWERFAIL TO SAVE CPU-SPECIFIC IPR'S ON 
; THE STACK 
INPUTS: NONE 
OUTPUTS: 
RO DESTROYED 
: OTHER GENERAL REGISTERS PRESERVED 
; IPR'S SAVED ON THE STACK AS FOLLOWS: 
: 11/780: 11/750: 11/730: 11/790: VAX I: 
: O(SP) PME PME PME ACCS (none) 
; 4(SP) — SBIMT TBDR CSWP 
; 8(SP) CADR PME 
.ENABL LSB 
EXESREGSAVE: : ; SUBROUTINE ENTRY 
POPR  #*M<RO> [CLEAR RETURN FROM STACK 


;SAVE PERFORMANCE MONITOR ENABLE 
SAVE SBI MAINT REG 


DONE, RETURN 


( 


3) 


ERRSUB780 = ERROR SUBROUTINES FOR VAX 11/7 ah '° P=1984 00:42: AX/VMS Macro V04-00 Page 14 
v04=002 EXESREGRESTOR = RESTORE CPU-SPECIFIC IPR 18: =3EB- 138e 90:28:39 SYSLOA. SRC JERRSUB.MAR; 5 9 110) 
$ s .SBTTL EXESREGRESTOR = RESTORE CPU-SPECIFIC IPR'S 
1 8 : EXESREGRESTOR - CALLED BY POWERFAIL RECOVERY TO RESTORE CPU-SPECIFIC 
; R'S FROM THE STACK. 
° : INPUTS: 
1 38 : R6 = TOP OF STACK 
34 STACK SET UP AS DEFINED IN OUTPUTS OF EXESREGSAVE. 
58 : OUTPUTS: 
1 3 ; RO DESTROYED 
1 ; OTHER GENERAL REGISTERS PRESERVED 
1 0; CPU-SPECIFIC IPR'S RESTORED FROM STACK 
: R6 = ADDRESS OF 1ST CPU-INDEPENDENT SAVED IPR 
1 :- 
183 
5 .ENABL LSB 
19 89 EXESREGRESTOR: : ; SUBROUTINE ENTRY 
01 +BA : 09 POPR  #*M<RO> SCLEAR RETURN FROM STACK 
104 811 
33 6 DA 0104 813 MTPR = (R6)+, #PR780$_SBIMT ;RESTORE SBI MAINT REGISTER 
D 86 DA 7 1% MTPR  — (R6)+, #PR780$—PME [RESTORE PERFORMANCE MONITOR ENABLE 
10n BI? 
10A 3 
10A 4 
10A 8 
a 
60 17 10A 38 JMP (RO) ;DONE, RETURN 
O10C 844 .DSABL LSB 


19 FFFFD8FO 8F DA MTPR #-<10*1000>,S*#PR780$_NICR ; LOAD NEXT INTERVAL REGISTER 


18 800000D1 8F 


WMP 


MTPR #*X800000D1,S*#PRS_ICCS ; CLEAR ERROR AND START CLOCK 
RSB ; AND RETURN 


ovo 
Ww 
oO 
wn 


10 
ERRSUB780 = ERROR SUBROUTINES FOR VAX 11/780 “SEP-1984 00:42: AX/VMS Macro V04-00 Pa 15 ER 
foas003 EXESINIPROCREG = CPU-DEPENDENT INITIALIZ 1$-SEb =} 382 90:28:38 YOYSLOA. SRCJERRSUB.MAR; 5 aD vO 
¢ 4 < .SBTTL EXESINIPROCREG - CPU-DEPENDENT INITIALIZATION OF IPR'S 
10€C 848 : EXESINIPROCREG - PERFORM INITIALIZATION OF INTERVAL TIMER AND 
c 49 ; CPU-DEPENDENT REGISTERS. CALLED FROM INIT AND POWERFAIL. 
¢ : INPUTS: 
c ; NONE 
c ¢ : OUTPUTS: 
10¢ 7 : NONE 
ae ee 
¢ 60 EXESINIPROCREG:: ; INIT PROCESSOR REGISTERS 
c 64 ; FOR 11/780, CONTINUE 
90" E1 010¢ 66 BBC SH#EXESV_CRDENABL - : 
07 00000000' 9F 1 : 6 arg XESGL FLAGS 108 : IF CLR, IGNORE CRD ERRORS 
34  0000C000 BF DA 01 68 MTPR #<3a14>,S*#PR780$_SBIER ; SET CRD INTERRUPT ENABLE 
0’ €1 01 : 10$: BBC S*#EXESV_SBIERR,- 
07 00000000' 9F 1 0 ar xESCL ELAGS 40s : IF CLR, IGNO RE SBI ERRORS 
30 00040000 8F DA 4 MTPR #<1a18>,S*#PR780$ SBIFS : SET SBI FAULT ENABLE 
90° £0 01 é 20$: BBS S*#EXESV_NOCLOCK,- 
OE 00000000' 9F : a#EXESGL FLAGS, 30$ ; BRANCH IF NOT USING CLOCK 
1 
3 
1 9 
1 43 
1 44 
12) 948 
biel 965 


wowowowownownowowowvono 
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SOODOOOOCOOOOOOOOOOOOOOODO 


MOSGOOOOOOO0O0O0O0000 0000000 
WINE WN 9 OONAUES WH OOOO 


1 
1 
1 
1 
1 
1 
1 


“SEP=1 
~SBTTL SYSLSCLRSBIA 


;++ 
; SYSLSCLRSBIA - ce Moa. CLEAR $614 BRROR REGISTERS 
; 11/7 750, 11/730, AND MICRO-VAX I, THIS IS A NOP 


; THIS ROUTINE IS CALLED TO CLEAR OUT SBIA ERROR BITS AFTER A MACHINE CHECK 
; OCCURS (WHEN MACHINE CHECK IS HANDLED LOCALLY). 


; THIS ROUTINE SHOULD BE CALLED AT IPL 31. 


; INPUTS: 
; ABUS_TYPE - “ ARRAY TYPE CODES; IDENTIFIES EACH ADAPTER ON THE 


US. 
ABUS_VA - AN ARRAY OF ADAPTER SPACE VA'S FOR EACH ADAPTER 
ON THE ABUS. 


SYSLOA.SRCJE ERR SUB.MAR; 5 


; OUTPUTS: 
; SBI ERROR BITS ARE CLEARED FOR EACH SBIA ON THE ABUS. 
ALL REGISTERS PRESERVED. 


* ++ 
YSLSCLRSBIA:: 
RSB 3; AND RETURN 


om 
oc 
“Ww 


OUTINES FOR VAX 11/786 ™ 1978 =3EF: =1384 00: og: 38 ena Macro V04-00 


me 
et 
mn 
AD 
~ 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
t + 


SYSLOA. SRC JERR RSUB.MAR; 5 
~SBTTL EXESTEST_CSR 
EXESTEST_CSR = TEST A UNIBUS CONTROLLER CSR FOR EXISTENCE 
THIS TEST IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 
11/780 “TEST CSR_AND CHECK Rest IN THE 2 CHINE CHECK he 


11/7 “ee ecitiect 3 ie. V CHECK 
i fy ee TA TEMPORARY 
A 


zw 
m 
“oO 
mo 
zw 
wm— 


SR, AND RESTORE THE 


788 


aAconmZzm™m 
mmmm—rmn 


XIST 

C 

ORI L 

11/738 mit} Is 
11/790 ACTION IS HE oan 

MICRO-VAX I -ACTION IS SAME AS FOR TH 

THIS SUBROUTINE SHOULD BE CALLED VIA BRANCH O 

INPUTS: 


RO 
R6 


OUTPUTS: 


RO LOW B 
OTHER RE 


IA 

CONN 
EC 
i1/ 
11/ 
11/ 
RJ 


CSR ADDRESS 
ADAPTER CONFIGURATION REGISTER ADDRESS 


T SET/CLEAR ieee EXISTENT/NONEX CSR 


I 
GISTERS PRESERV 


-ENABL LSB 


EXESTEST_CSR:: ; SUBROUTINE ENTRY 


SDD DDD DDD DEST EB BS BS BB EE WII III 
A OO NANI ANNU EIN 29 9 OO NA UIP * © OO NIA UNE WIN SO OOO NIA NE WII O OD NAMEN Ou 


oO 
x 


00009090000 WI > U7 00 BS BBB EE EOP OPOPPNPONPUPIPINIPIIIPININIPUNIIIPIPUNIPINIPIIURIPUININININD 


SDOOSCOOCOSCOCOSOOOSSOSOCOSOSOSSGOOCGOSGSGOOOSOOSOOOOSOOCOOOOSGOOOOOGOOOOOOOOOoOO 


AAOAAAAACAOUNNNE EERE RRR LESSER ALLL L ERE P EPL EPP PEEPPPPPP PPE E 


ODOOOWODODDo NNN 


PUSHR #*M<R1,R2> SAVE REGISTERS 


UMP TO SUBROUTINE AT IPL 31. 


This next Line of code is present so that this routine gont inyes to function 
correctly when the UNIBUS adapter is powered down. Moving 0 into the UBA 
Status Register has no effect when addressing the actual Ssaoter register, 
and clears out any garbage bits in memory when UNIBUS space is re-mapped to 


the ‘‘black hole’’ page. 


MOVL  #0,UBASL_SR(R6) :WHEN UBA IS REMAPPED 
MOVL  G*EXESGL7SCB,R1 [GET SCB ADDRESS 
PUSHL  4(R1) :SAVE CURRENT MCHECK HANDLER ADDR 
MOVL  SP,R2 [MARK CURRENT TACK P N 
MOVAL B*MCHK_780,4(R1) : CONNECT TEMP 11/ 80 Oeeee HANDLER 
TSTw (RO) ATTEMPT TO REA 
MOVL § UBASL_SR(R6),UBASL _sr(R6S :CLEAR AND CHECK FOR ERROR 
BNEQ NONEX sBRANCH IF ERROR 
MOVZBL #SS$_RORMAL,RO SET eFatus TO SUCCESS 
RB TEST—DONE [JOIN COMMON EXIT 


; TEMPORARY CSR TEST MACHINE CHECK HANDLER FOR THE 11/780: 


~ALIGN LONG 


;SET STATUS TO FAILURE 
RESTORE SYSTEM MCHECK HANDLER 
RESTORE REGISTERS 

RETURN RESULT TO CALLER 


; 


13SE6= 1982 99:28:38 HNCUOR SRESeansua mar: 5 
#PR780$_SBIFS 


10 
80$ 
(SP) 1 
*RO 


~ 
on 
Qa = 
ze 


M 
5 


SUBROUTINES FOR VAX 11/780 
+ 
#*M<R1,R2> 


(SP 
«DISABLE LSB 


i 


PR 
RSB 


TEST_DONE 2: 
PO 


POCO CCC CCC CCC OCOCCeCeR 
wT IU 
Qa Dao 


oO oO 
nw oO 


csaeze 


N 10 
ERRSUB78O OR VAX 11/780 16-SEP-1984 00:42:36 YAX/VMS Macro V04-00 Page 19 
v04=002 R'CONTROL BLOCK INT 18-SEP-1984 15:49:29 ESYSLOA.cReSERRGUB MaR:s "29° (48, 


: ~SBTTL ADPLINK = LINK ADAPTER CONTROL BLOCK INTO ADP LIST 
; ADPLINK LINKS THE ADAPTER CONTROL BLOCK TO THE END OF THE ADP LIST 


INPUT: 
R2 = ADDRESS OF NEW ADP 
OUTPUTS: 
ADP IS LINK TO THE END OF THE ADPLIST LOCATED BY IOCSGL_ADPLIST. 
RO,R1 destroyed. 


> Sete Ge Sete Sete 


“MOVAB «= @#< OC SGL_ADPLIST-ADPSL_LINK>,RO 
3 START OF LIs 


0 10$ MOVL ADPSL_LINK(RO),R1 ; FLINK TO F 
aa BEQL 20$ ; AT END 
50 a oY yb R1,RO 3 TRY AGAIN 
04 A052 ? 20$ MOVL R2,ADP$L_LINK(RO) ; CHAIN NEW ADP TO END OF LIST 
0 RSB : AND RETURN 


2 3 II IQ OOOO 00O00 


CNAME WN SG ODONAOUE Wit" On 


OR 

NK 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

50 OFFFFFFFC'SF 8 ©69E i 
51 04 AO 1 
0 1 
1 

3 

1 

01 

01 

01 
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ERRSUB780 = ERROR SUBROUTINES FOR VAX 11/788 16-SEP-1984 00:42: AX/VMS cro V04-00 Page ERF 
Symbol table 1$-3E b=} 382 90:45:38 YOYSLOA. REIE RRSUB.MAR: 5 . (8) vO4 
ADPSL sk = 9 PR$_SID_TYP790 = 4 
ADPSL “LINK = PR jo TYPUV1 = 7 
ADPSU ADPTYPE = 5 PR ACCS = 8 
ADPLIAK 187 RG PR780$_ICR = A 
ADP_TBL_DWN 0 R PR780$-NICR s 19 
ADP~TBL “UP R PR780$_PME = D 
OSL_UAR_DIS = 4 PR780$_SBIER = 4 
QO$W-VERSION = PR780$_SBIFS = 0 : 
BTD$K~ CONSOLE = 0000004 PR780$_SBIMT s 0 
C750_CIKE = 000 PR780$_SBIS = 00031 
C7B0-LIKE = 900 1 PR780$_SBISC = 00000032 
CISSAUTDOWN eeeeeere Xx 03 PR780$_TODR = 8 18 
CPU_TYPE = 9000 01 RPB$B SEVTYP = 6 
EXESDUMPCPUREG 900 3 RG 03 RPB$L~ADPVIR = 960 
EXESEXTRA 0000 RG 1 RPBS$L_IOVEC = 00000034 
EXESEXTRAI0 90006 06 RG 1 RPB$W-BOOTNDT = 000000A1 
EXESEXTR 0000 RG 1 SS$_NORMAL = 00000001 
EXESEXTRA 00000 44 RG 1 SYSCSCLRSBIA 0000141 RG 03 
EXESEXTRAG 9000000 RG 1 ST_DONE 90000180 R 03 
EXESEXTRAS 0000000 RG 01 TEST DONE _2 0000184 R 03 
EXESEXTRA6 0000000 RG 4 UBASTNITIRG eeeerene YX 03 
EXESEXTRA? 0000000 RG 1 UBASL_CR = 00000004 
EXESEXTRAS 444 444 RG 01 UBASL_CSR = 00000000 
EXESEXTRAO 00000000 RG 01 UBASL_MAP = 00000800 
EXESGL_FLAGS eeeeeeee =X |= 03 UBASL_SR = 00000008 
EXESGL~SCB aeeeeeee X 03 UBASM_CR_INIT = 00000001 
EXESINIBOOTADP 00000000 RG 03 UBASM_CSR_UBIC = 00010000 
EXESINIPROCREG 0000010C RG 03 
EXESREADP_TODR OOOO00FO RG 03 
EXESREAD_TODR QO00000FO RG 03 
EXESREGRESTOR 00000102 RG 03 
EXESREGSAVE QO0000F8 RG 03 
EXESSHUTDWNADP 00000077 RG 03 
EXESSTARTUPADP QOOOO06F RG 03 
EXESTEST_CSR 00000142 RG 03 
EXESV_CRBENABL teeeeeee 03 
EXESV_NOCLOCK teenrenee § X 03 
EXESV_SBIERR eereenee KX 03 
EXESWRITEP_TODR QOO000F4 RG 03 
EXESWRITE_TODR OOO00F4 RG 3 
INI_UBADP 0000038 R 03 
IOCSGL_ADPLIST gtteeeee 03 
MASINITIAL aeeeeere§ X 0 
MBASINITIAL eeeeeeee X 03 
MBASL_CR = 00000004 
MBASL_SR = B88 00 
MBASM_CR_ABORT = 0 6 99 
MBASM CRIINIT = 
MCHK_780 9 168 R 03 
NDT$_CI = 
NDT$ = 4 
NONE R_DEV 9 R 05 
0 163 R 
PRS$_ICCS = 1 
R$_-SID_TYP730 = 9 
PR$-SID~TYP750 = 
PR$-SID-~TYP780 = 0000 


11 
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bre enw ene nero eaat 


H Psect _Synopsis ! 


eeneeeeneeeocecocca + 


PSECT name Allocation PSECT No. Attributes 

. ABS . BA 888808 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

. BLANK . 0000001 (¢ 1.) Q1¢ #1.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 

SABSS Bapens ee ( P+ ¢ ( ¢°i NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

SYSLOA OOO019E (¢ 414.) ( 35.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
terms eee nnnece wmnaeasocesceanaa} 
: Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 3 00:00:00.04 00:00:00.83 

zonnend processing 131 00: Se 0:00:04.04 

s 1 343 00:00:07.5 0:00: $-§2 

eT table sort 9 B3 tR0: 1.96 8:82: 2.56 

Pass 2 13 $4 8 1.9 0:0 08-64 

Symbol table output 11 Ba : 3-8 00:00:00.47 

Psect synopsis output 3 0:00:00.0 B80: 6075 

Cross-reference output 0 Bg: 0:00.0 80880 -8 

Assembler run totals 659 0:00:11.16 00:00:38.3 


The working set Limit was 1650 pages. 

70789 bytes (139 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1058 non-local and 18 local symbols. 
1222 source Lines were read in Pass 1 "sein" 16 object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


See OE HE CeO OS mY 


Macro Library name Macros defined 
-$255$DUA28: CSYS.OBJIJLIB.MLB;1 10 
“$255$DUA28: (SYSLIBJSTARLET.MLB;2 6 

TOTALS (all Libraries) 16 


1123 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ERRSUB780/0BJ=0BJ$:ERRSUB780 MSRC$:CPUSW780/UPDATE=(ENHS: CPUSW780) +MSRC$: ERRSUB/UPDATE=(ENHS$: ERRSUB) +EXECMLS/LIB 
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